From: Eli Zaretskii Date: Wed, 8 Apr 2009 12:41:48 +0000 (+0000) Subject: (rmail-simplified-subject): Normalize whitespace in subject. This X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~928 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=13a5137501816e686abe33c9ab41020ac7bbae0c;p=emacs.git (rmail-simplified-subject): Normalize whitespace in subject. This resurrects a feature, lost in transition to mbox, whereby Subject is matched even if it's broken into several lines at arbitrary places. --- diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index dec4c07d6e7..a950f903f70 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -3046,6 +3046,10 @@ and typical reply prefixes such as Re:." (setq subject (substring subject (match-end 0)))) (if (string-match "[ \t]+\\'" subject) (setq subject (substring subject 0 (match-beginning 0)))) + ;; If Subject is long, mailers will break it into several lines at + ;; arbitrary places, so normalize whitespace by replacing every + ;; run of whitespace characters with a single space. + (setq subject (replace-regexp-in-string "[ \t\n]+" " " subject)) subject)) (defun rmail-simplified-subject-regexp ()